home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software USA 5 #2
/
Software USA Volume 5.02.iso
/
mac
/
home&office
/
2
/
GEDitCOM Formats
/
Default GEDitCOM Format
< prev
next >
Wrap
Text File
|
1998-12-01
|
55KB
|
3,561 lines
@@GeDF@@_Unknown_ Printing
! static text with level and tab
newline
get *name
if
style static
text *lev
text " "
text *tag
else
style label
text *it
endif
text :
get #rtjs
if 1
justify right
endif
tabwidth 2
! edit field with value
hskip 5
style editvalue
width -1
newline
@@GeDF@@Individual Events
BIRT Birth
CHR Christening
DEAT Death
BURI Burial
CREM Cremation
ADOP Adoption
BAPL LDS Baptism
BAPM Baptism
BARM Bar Mitzvah
BASM Bas Mitzvah
BLES Blessing
CAST Caste Name
CENS Census
CHRA Adult Christening
CONF Confirmation
CONL LDS Confirmation
DSCR Physical Description
EDUC Education
EMIG Emigration
ENDL LDS Endowment
EVEN Generic Event
FCOM First Communion
GRAD Graduation
IDNO National ID Number
IMMI Immigration
NATI National or Tribal Origin
NATU Naturalization
NCHI Number of Children
NMR Count of Marriages
OCCU Occupation
ORDN Ordination
PROB Probate
PROP Possessions
RELI Religious Affiliation
RETI Retirement
RESI Residence
SLGC LDS Child Sealing
SSN Social Security Number
TITL Nobility Type Title
WILL Will
@@GeDF@@Family Events
ANUL Annulment
CENS Census
DIV Divorce
DIVF Divorce Filed
EVEN Generic Event
ENGA Engagement
SLGS LDS Spouse Sealing
MARB Marriage Bann
MARC Marriage Contract
MARL Marriage License
MARR Marriage
MARS Marriage Settlement
NCHI Number of Children
@@GeDF@@GEDCOM Tag Names
ABBR Short Title
ADOP Adoption
ADR1 Address Line 1
ADR2 Address Line 2
AGE Age
AGNC Agency
ANCE Gens. of Ancestors
ANUL Anulment
AFN Ancest. File No.
BAPL LDS Baptism
BAPM Baptism
BARM Bar Mitzvah
BASM Bas Mitzvah
BLES Blessing
BURI Burial
CALN Call Number
CAST Caste Name
CAUS Cause
CENS Census
CHAR Character Set
CHR Christ'ing
CHRA Adult Chr
CITY City
CONF Confirmation
CONL LDS Confirmation
COPR Copyright
CORP Corporation
CREM Cremation
CTRY Country
DATE Date
DEAT Death
DESC Gens. of Descendents
DEST Dest File
DIV Divorce
DIVF Div. Filed
DSCR Physical Descrip.
EMIG Emigration
ENGA Engaged
ENDL LDS Endowment
EVEN Event
EDUC Education
FAMF Family File
FCOM First Communion
FILE File
FORM Form
GIVN Given
GRAD Graduation
IDNO Nat. ID No.
IMMI Immigrat'n
LANG Language
MARB Marr. Bann
MARC M. Contract
MARL M. License
MARR Marriage
MARS Settlement
MEDI Media Type
NATI Nationality
NATU Nat'rlized
NCHI No. of Children
NICK Nickname
NMR No. of Marriages
NPFX Prefix
NSFX Suffix
OCCU Occupation
ORDI Ord. Process Flag
ORDN Ordination
PAGE Page
PEDI Pedigree
PHON Phone No.
PLAC Place
POST Postal Code
PROB Probate
PROP Possessions
QUAY Quality
REFN User Ref. No.
RELA Relationship
RELI Religion
RESI Residence
RESN Restriction
RETI Retirement
RFN Record File No.
RIN Record ID
SLGC LDS Child Sealing
SLGS LDS Spouse Sealing
SPFX Sur Prefix
SSN Soc. Sec. No.
STAE State
STAT Status
SURN Surname
TEMP Temple
TITL Title
TIME Time
TYPE Type
VERS Version
WILL Will
@@GeDF@@@WindowRects
23 51 511 463
50 111 526 438
112 165 513 420
90 69 505 461
33 107 443 470
63 183 512 342
14 171 411 380
67 206 448 434
57 158 506 302
51 106 566 469
4 42 365 472
21 55 637 474
85 47 546 398
76 151 426 474
33 107 499 421
@@GeDF@@@Tree Preferences
0 @PREF@ @TRE
1 @STY Name
2 @FNT Helvetica
2 @SZE 9
2 @FCE Plain
1 @STY Title
2 @FNT Helvetica
2 @SZE 10
2 @FCE Bold
1 @CLR Males
2 @RGB 3276 48495 63568
1 @CLR Females
2 @RGB 63568 41942 59636
1 @NUM Short Box Width
2 @VAL 67
1 @NUM Full Box Width
2 @VAL 120
1 @NUM Box Height
2 @VAL 25
1 @NUM Box Separation
2 @VAL 10
1 @NUM Line Separation
2 @VAL 8
1 @NUM Top Margin
2 @VAL 5
1 @NUM Left Margin
2 @VAL 5
1 @TXT Box Style
2 @TVL Simple Box
1 @TXT Name Display
2 @TVL Name & Lifepan 2 Lines
1 @CKB Full Names
2 @CVL N
1 @CKB Use Color
2 @CVL Y
1 @VRS 1
@@GeDF@@@Index Preferences
0 @PREF@ @IDX
1 @STY Index
2 @FNT Times
2 @SZE 12
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 0
1 @CKB Require Double Clicks
2 @CVL N
1 @IPU Clicking Opens
2 @IPV Y
1 @IPU Shift-Clicking Opens
2 @IPV N
1 @VRS 1
@@GeDF@@_Unknown_ Editing
! static text with level and tab
newline
get *name
if
style static
text *lev
text " "
text *tag
text " "
else
style label
text *it
text :
endif
tabwidth 2
justify right
! edit field with value
hskip 5
style editvalue
border 3Dfield
width -1
newline
@@GeDF@@@Editing Preferences
0 @PREF@ @EDT
1 @STY Editing
2 @FNT Times
2 @SZE 12
2 @FCE Plain
2 @CLR Color
3 @RGB 0 0 0
1 @STY Labels
2 @FNT Times
2 @SZE 12
2 @FCE Bold
2 @CLR Color
3 @RGB 0 0 0
1 @STY Static
2 @FNT Times
2 @SZE 12
2 @FCE Italic
2 @CLR Color
3 @RGB 0 0 0
1 @STY Buttons
2 @FNT Geneva
2 @SZE 9
2 @FCE Plain
2 @CLR Color
3 @RGB 9972 9972 9972
1 @CLR Revision
2 @RGB 65000 0 0
1 @CLR Background
2 @RGB 65535 57015 53083
1 @CLR Field Top
2 @RGB 30146 15073 10485
1 @CLR Field Bottom
2 @RGB 65535 64224 62918
1 @CLR Button
2 @RGB 58940 59022 59022
1 @CLR Button Top
2 @RGB 62258 62258 62258
1 @CLR Button Bottom
2 @RGB 42597 42597 42597
1 @NUM Line Separation
2 @VAL 4
1 @NUM Left Margin
2 @VAL 4
1 @NUM Min Edit Lines
2 @VAL 5
1 @NUM Max Edit Lines
2 @VAL 10
1 @NUM Button Corners
2 @VAL 8
1 @CKB Date mm/dd/yy
2 @CVL Y
1 @CKB Track Changed Dates
2 @CVL Y
1 @CKB Create User ID
2 @CVL N
1 @VRS 1
@@GeDF@@INDI Record Editing
settab 72
settab 112
settab 165
! father button
style button
text Father
menulink View:Father
justify center
border 3Dbutton
hskip 5
style button
text Mother
menulink View:Mother
justify center
border 3Dbutton
hskip 5
style button
text Spouse
menulink View:Spouse
justify center
border 3Dbutton
hskip 5
style button
text Children
menulink View:Children
justify center
border 3Dbutton
hskip 5
style button
text Ancestors
menulink Tree:Ancestor Tree
justify center
border 3Dbutton
hskip 5
style button
text Descendants
menulink Tree:Descendant Tree
justify center
border 3Dbutton
newline 2
show NAME INDI
show SEX
hskip 5
show RESN here
endtoolbar 2
newline 3
show BIRT
show DEAT
showall FAMS
showall FAMC
! events
3dhrule
newline -2
style label
width 150
Text Events/Attributes
hskip 0
style button
justify center
border 3Dbutton
menulink Attach:Event/Attribute
Text "Attach Event/Attribute"
width 150
leftskip 15
newline
showall BAPM
showall CHR
showall BLES
showall BARM
showall BASM
showall ADOP
showall CHRA
showall CONF
showall FCOM
showall ORDN
showall GRAD
showall EMIG
showall IMMI
showall NATU
showall CENS
showall RETI
showall PROB
showall BURI
showall WILL
showall CREM
showall EVEN
showall BAPL
showall CONL
showall ENDL
showall SLGC
! attributes
leftskip #dlmg
newline
showall OCCU
showall EDUC
showall DSCR
showall RELI
showall RESI
showall SSN
showall IDNO
showall PROP
showall CAST
showall NCHI
showall NMR
showall TITL
3dhrule
!Multimedia
ifhastags OBJE
newline -2
style label
text Multimedia Links
tabwidth 2
hskip 5
showall OBJE
3dhrule
endif
!Aliases
set oldv #vpos
leftskip 15
ifhastags ALIA
lineskip 0
newline -3
style label
text Aliases:
width 50
hskip 2
leftskip 67
showall ALIA
leftSkip 15
newline 3
lineskip #dlsk
endif
!Associations
ifhastags ASSO
lineskip 1
newline -3
style label
text Associations:
width 84
hskip 2
leftskip 101
showall ASSO
leftSkip 15
newline 3
lineskip #dlsk
endif
!Sources
ifhastags SOUR
lineskip 0
newline -3
style label
text Sources:
width 55
hskip 2
leftskip 72
showall SOUR
leftSkip 15
newline
lineskip #dlsk
endif
get #oldv
if #vpos
newline -2
else
newline 1
endif
show SOUR
showall NOTE
show NOTE
show OBJE
show SUBM
showall SUBM
show ANCI
showall ANCI
show DESI
showall DESI
show ALIA
show ASSO
leftSkip #dlmg
@@GeDF@@NAME Editing
! start new line and label
newline
style label
text Name:
justify right
tabwidth 1
! edit name
hskip 5
style editvalue
border 3Dfield
get *msg
if INDI
width 250
else
width -1
endif
@@GeDF@@BIRT Editing
! New line and enter label
newline
style label
justify right
text Birth:
tabwidth 1
! show date and place
show DATE
show PLAC
! Show notes and source
leftSkip 120
lineskip 0
ifhastags SOUR
newline -1
style static
text Sources:
width 50
hskip 2
leftskip 172
showall SOUR
leftSkip 120
endif
newline
show SOUR Birth
show NOTE Birth
lineskip #dlsk
leftskip #dlmg
@@GeDF@@DATE Editing
! label on current line
get *msg
ifempty
style label
text Date:
justify right
tabwidth 1
! edit the date
hskip 5
style editvalue
border 3Dfield
content date
width -1
elseif Event
style label
text Date:
justify right
tabwidth 1
! edit the date
hskip 5
style editvalue
border 3Dfield
content date
set dwid #rmgn
sub dwid #hpos
sub dwid 85
width #dwid
endif
@@GeDF@@DEAT Editing
! start new line and label
3dhrule
newline
style label
justify right
text *name
text :
tabwidth 1
! show date and place
show DATE Event
show AGE
show PLAC
! Show notes and source
leftSkip 120
lineskip 0
ifhastags SOUR
newline -1
style static
text Sources:
width 50
hskip 2
leftskip 172
showall SOUR
leftSkip 120
endif
newline
show SOUR *name
show NOTE *name
lineskip #dlsk
leftskip #dlmg
@@GeDF@@SEX Editing
! "Male" or "Female" static text
hskip 10
style static
border 3dfield
cellbg 0xD4 0xB4 0xA4
justify center
get *valu
if M
text Male
else
text Female
endif
width 40
@@GeDF@@FAMS Editing
! marriage button
3dhrule
newline
hskip 10
style button
text Marriage Record
link *valu
justify center
tabwidth 2
border 3Dbutton
! Spouse
hskip 0
tabwidth 1
style static
get *this.SEX
if F
text Husband:
get *valu.HUSB
else
text Wife:
get *valu.WIFE
endif
justify right
hskip 5
style button
font times
size 12
if validlink
text *it.NAME
link *it
blue
face underline
else
text <unknown>
endif
width -1
@@GeDF@@NOTE Editing
if tagexists
style button
get *msg
ifnotempty
text *msg
text " "
endif
text Notes
get *valu
if validlink
link *valu
else
structlink NOTE
endif
else
style button
text "New "
get *msg
ifnotempty
text *msg
text " "
endif
text Notes
if "Header"
structlink NOTE
else
newlink
endif
endif
justify center
border 3Dbutton
width 105
hskip 5
@@GeDF@@FAMC Editing
! parent family button
3dhrule
newline
hskip 10
style button
text Parents Family
link *valu
justify center
tabwidth 2
border 3Dbutton
! Father
hskip 0
tabwidth 1
style static
text Father:
justify right
hskip 5
style button
get *valu.HUSB
font times
size 12
if validlink
text *it.NAME
link *it
blue
face underline
else
text <unknown>
endif
width -1
! Mother
newline -5
tab 2
hskip 0
tabwidth 1
style static
text Mother:
justify right
hskip 5
style button
get *valu.WIFE
font times
size 12
if validlink
text *it.NAME
link *it
blue
face underline
else
text <unknown>
endif
width -1
@@GeDF@@BAPM Editing
use BURI Editing
@@GeDF@@FAM Record Editing
settab 72
settab 112
settab 216
settab 432
hskip 5
style button
text Children
menulink View:Children
justify center
border 3Dbutton
hskip 5
style button
text Index
menulink View:Index...
justify center
border 3Dbutton
endtoolbar 2
newline 3
show HUSB
show WIFE
show MARR
! children table
newline 8
lineskip 2
hskip 15
style label
text Children
tabwidth 3
justify center
border 3DField
cellbg 0xD4 0xB4 0xA4
hskip 3
style label
justify center
text Sex
border 3DField
width 55
cellbg 0xD4 0xB4 0xA4
hskip 3
style label
justify center
text Birthdate
border 3DField
width 110
cellbg 0xD4 0xB4 0xA4
hskip 3
style label
justify center
text Link
border 3DField
tabwidth 1
cellbg 0xD4 0xB4 0xA4
set chnm 1
showall CHIL
! attach and detach buttoms
lineskip #dlsk
newline 2
showall NCHI
hskip 15
style button
text "Attach Child"
menulink Attach:Child
border 3Dbutton
justify center
hskip 5
style button
text "Detach Child"
menulink Detach:Child
border 3Dbutton
justify center
! events
newline 8
3dhrule
newline -2
style label
width 150
Text Family Events
hskip 0
style button
justify center
border 3Dbutton
menulink Attach:Event/Attribute
Text "Attach New Event"
width 150
newline
leftskip 15
showall ENGA
showall MARB
showall MARC
showall MARL
showall MARS
showall SLGS
showall DIV
showall DIVF
showall ANUL
showall CENS
showall EVEN
! attributes
leftskip #dlmg
3dhrule
!Multimedia
ifhastags OBJE
newline -2
style label
text Multimedia Links
tabwidth 2
hskip 5
showall OBJE
3dhrule
endif
leftSkip 15
ifhastags SOUR
lineskip 0
newline -1
style label
text Sources:
width 55
hskip 2
leftskip 72
showall SOUR
leftSkip 15
newline
lineskip #dlsk
else
newline -1
endif
show SOUR
showall NOTE
show NOTE
show OBJE
show SUBM
showall SUBM
leftSkip #dlmg
@@GeDF@@WIFE Editing
! label on current line
newline
style label
text Wife:
justify right
tabwidth 1
! display the name
hskip 5
style button
get *valu.NAME
ifnotempty
blue
face underline
font times
size 12
text *valu.NAME
link *valu
width 250
hskip 5
get *valu.FAMC
if validlink
style button
text Parents
justify center
link *it
border 3dbutton
endif
else
text Attach Wife
justify center
border 3Dbutton
menulink Attach:Wife
width 100
hskip 150
endif
@@GeDF@@CHIL Editing
! link to child
newline
hskip 15
style button
blue
face underline
font times
size 12
text #chnm
add chnm 1
text ". "
text *valu.NAME
link *valu
tabwidth 3
border 3DField
hskip 3
style static
justify center
get *valu.SEX
if M
text Son
else
text Daughter
endif
border 3DField
width 55
hskip 3
style static
justify center
text *valu.BIRT.DATE
border 3DField
width 110
hskip 3
get *valu.FAMS
if validlink
style button
text Family
blue
font times
face underline
size 12
link *it
justify center
else
style static
endif
border 3DField
tabwidth 1
@@GeDF@@MARR Editing
! start new line and label
3dhrule
newline
style label
justify right
text *name
text :
tabwidth 1
! show date and place
show DATE
show PLAC
! Show notes and source
leftSkip 120
lineskip 0
ifhastags SOUR
newline -1
style static
text Sources:
width 50
hskip 2
leftskip 172
showall SOUR
leftSkip 120
endif
newline
show SOUR *name
show NOTE *name
lineskip #dlsk
leftskip #dlmg
@@GeDF@@ADDR Editing
! parent family button
newline
style label
text Address:
justify right
tabwidth 1
hskip 5
style editcont
border 3Dfield
width -1
@@GeDF@@SUBM Record Editing
settab 80
settab 120
show NAME
show ADDR
show PHON
show LANG
!Multimedia
ifhastags OBJE
3dhrule
newline -2
style label
text Multimedia:
tabwidth 1
justify right
hskip 5
showall OBJE
endif
tab 1
hskip 5
show OBJE
@@GeDF@@SUBM Editing
style button
get *valu
ifnot validlink
text "Link "
endif
text *msg
text Submitter
addlink
justify center
width 105
border 3Dbutton
hskip 5
@@GeDF@@NOTE Record Editing
style label
text "Notes on "
get *this.NAME
ifempty
text *this.HUSB.NAME
text " / "
text *this.WIFE.NAME
text " Marraige"
else
text *it
endif
width -1
newline -4
style edittext
@@GeDF@@REPO Record Editing
show NAME
show ADDR
newline
tab 1
hskip 5
show NOTE Repos.
newline
@@GeDF@@AUTH Editing
newline
style label
text Author:
justify right
tabwidth 1
hskip 5
style editcont
border 3Dfield
width -1
@@GeDF@@TITL Editing
get *msg
ifempty
get #vpos
if #oldv
3dhrule
newline -4
style label
width -1
Text Individual Attributes
newline -4
3dhrule
endif
! static text with level and tab
newline
style label
text *name
text :
tabwidth 2
justify right
! edit field with value
hskip 5
style editvalue
border 3Dfield
width -1
elseif mm
newline
style label
text Title:
justify right
tabwidth 1
hskip 5
style editvalue
border 3Dfield
width -1
else
newline
style label
text Title:
justify right
tabwidth 1
hskip 5
style editcont
border 3Dfield
width -1
endif
@@GeDF@@SOUR Record Editing
settab 90
settab 90
maxlines 2
show AUTH
show TITL Source
show ABBR
minlines 3
maxlines 5
show PUBL
newline
tab 1
hskip 5
show NOTE Source
show REPO
3dhrule
show DATA
3dhrule
show TEXT
!Multimedia
ifhastags OBJE
3dhrule
newline -2
style label
text Multimedia:
justify right
tabwidth 2
hskip 5
showall OBJE
endif
tab 1
hskip 5
show OBJE
@@GeDF@@PUBL Editing
newline
style label
text Publisher:
justify right
tabwidth 1
hskip 5
style editcont
border 3Dfield
width -1
@@GeDF@@REPO Editing
! Note buttom
get *valu
if tagexists
style button
text Repository
link *valu
justify center
width 105
border 3Dbutton
show CALN
else
style button
text "Link Repository"
addlink
justify center
width 105
border 3Dbutton
hskip 5
endif
@@GeDF@@PHON Editing
use ABBR Editing
@@GeDF@@SOUR Editing
get *rec
if HEAD
style label
text System ID
justify right
tabwidth 1
hskip 5
style editvalue
border 3dfield
width -1
show NAME
show VERS
show CORP
show DATA
else
if tagexists
style button
get *valu
if validlink
get *it.ABBR
ifempty
get *valu.TITL
ifempty
get <Unnamed Source>
endif
endif
text *it
structlink SOUa
else
text "<Embedded Source>"
structlink SOUb
endif
face underline
font times
size 12
blue
width -1
else
style button
text "New "
ifnotempty
text *msg
text " "
endif
text Source
addlink
justify center
border 3Dbutton
width 105
hskip 5
endif
endif
@@GeDF@@SOUa Record Editing
! Source citation in separate window, but link
! to actual source
! link to the source
settab 90
settab 90
style label
text Source:
justify right
tabwidth 1
hskip 5
style button
get *valu
if validlink
get *it.ABBR
ifempty
get *valu.TITL
ifempty
get <Unnamed Source>
endif
endif
text *it
else
text "Link Source"
endif
addlink
justify center
width 200
border 3Dbutton
endtoolbar
show PAGE
show DATA
show QUAY
!Multimedia
ifhastags OBJE
3dhrule
newline -2
style label
text Multimedia:
tabwidth 2
justify right
hskip 5
showall OBJE
endif
newline
tab 1
hskip 5
show NOTE
showall NOTE
show OBJE
@@GeDF@@DATA Editing
get *rec
if HEAD
newline
style label
tabwidth 1
text Source Data:
justify right
hskip 5
style editvalue
border 3Dfield
width -1
cleartabs
settab #tab2
show DATE
show COPR
elseif SOUR
newline
style label
width -1
text Type of Data Recorded in this Source:
show EVEN
settab 40
show AGNC
newline
tab 2
hskip 5
show NOTE Data
else
show DATE
show TEXT
endif
@@GeDF@@TEXT Editing
newline
style label
text Source Text:
justify right
tabwidth 1
! edit the date
hskip 5
style editcont
border 3Dfield
width -1
@@GeDF@@PAGE Editing
newline
style label
text Page:
justify right
tabwidth 1
! edit the date
hskip 5
style editvalue
border 3Dfield
width -1
@@GeDF@@ABBR Editing
! label on current line
newline
style label
text *name
text :
justify right
tabwidth 1
! edit the date
hskip 5
style editvalue
border 3Dfield
width -1
@@GeDF@@SOUb Record Editing
! Source citation in separate window for embedded
! citation
! link to the source
settab 90
style label
text Source:
justify right
tabwidth 1
hskip 5
style editcont
border 3Dfield
width -1
show TEXT
show NOTE
showall NOTE
@@GeDF@@ANCI Editing
style button
if tagexists
text Ancestor Interest
else
text Add Ancest. Interest
endif
addlink
justify center
width 105
border 3Dbutton
hskip 5
@@GeDF@@DESI Editing
style button
if tagexists
text Decendent Interest
else
text Add Descend. Interest
endif
addlink
justify center
width 105
border 3Dbutton
hskip 5
@@GeDF@@BURI Editing
style button
text *name
structlink iEVT
border 3Dbutton
justify center
width 105
hskip 5
@@GeDF@@HEAD Record Editing
settab 90
settab 120
set tab1 90
set tab2 120
show SOUR
3dhrule
show SUBM
show SUBN
3dhrule
show DEST
show DATE
show FILE
show COPR
show GEDC
show CHAR
show LANG
show PLAC
3dhrule
show NOTE Header
showall NOTE Header
3dhrule
@@GeDF@@CORP Editing
newline
style label
text Corporation:
justify right
tabwidth 1
hskip 5
style editvalue
border 3Dfield
width -1
newline
show ADDR
@@GeDF@@COPR Editing
use ABBR Editing
@@GeDF@@SUBN Editing
style button
text Submission
link *valu
justify center
width 100
border 3Dbutton
hskip 5
@@GeDF@@GEDC Editing
newline
cleartabs
settab #tab2
show VERS GEDCOM
settab #tab1
show FORM
@@GeDF@@DEST Editing
use ABBR Editing
@@GeDF@@FILE Editing
use ABBR Editing
@@GeDF@@OBJE Record Editing
settab 90
settab 120
newline 3
lineskip 0
style label
width -1
justify center
text GEDitCOM follows recommended GEDCOM practice
text " which is to support"
border 3dframe ltr
cellbg 0xd4 0xb4 0xa4
newline
style label
width -1
justify center
text Multimedia by links to separate files.
text " This record contains encoded digital data"
border 3dframe lr
cellbg 0xd4 0xb4 0xa4
newline
style label
width -1
justify center
text and cannot be viewed in GEDitCOM.
text " You can click below to see the raw data."
border 3dframe lrb
cellbg 0xd4 0xb4 0xa4
lineskip #dlsk
newline 5
show TITL
show FORM
show BLOB
HideExcess
@@GeDF@@SUBN Record Editing
style label
text Submitter:
justify right
tabwidth 2
hskip 5
show SUBM
newline
show FAMF
show TEMP
show ANCE
show DESC
show ORDI
@@GeDF@@HUSB Editing
! label on current line
newline
style label
text Husband:
justify right
tabwidth 1
! display name
hskip 5
style button
get *valu.NAME
ifnotempty
blue
face underline
font times
size 12
text *it
link *valu
width 250
hskip 5
get *valu.FAMC
if validlink
style button
text Parents
justify center
link *it
border 3dbutton
endif
else
text Attach Husband
justify center
border 3Dbutton
menulink Attach:Husband
width 100
hskip 150
endif
@@GeDF@@WILL Editing
use BURI Editing
@@GeDF@@NATU Editing
use BURI Editing
@@GeDF@@ORDN Editing
use BURI Editing
@@GeDF@@INDI Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 110
hrule
hrule 1
style label
width -1
size 14
text Individual Record
hrule
hrule 1
show NAME INDI
show SEX
show BIRT
show DEAT
ifhastags FAMS
hrule
hrule 1
newline
style label
text Marriages
width -1
justify center
hrule
showall FAMS
endif
ifhastags FAMC
hrule
hrule 1
newline
style label
text Parents
width -1
justify center
hrule
showall FAMC
endif
hrule
hrule 1
newline
style label
text Additional Information
width -1
justify center
newline
set oldv #vpos
showall BAPM
showall CHR
showall BLES
showall BARM
showall BASM
showall ADOP
showall CHRA
showall CONF
showall FCOM
showall ORDN
showall GRAD
showall EMIG
showall IMMI
showall NATU
showall CENS
showall RETI
showall PROB
showall BURI
showall WILL
showall CREM
showall EVEN
showall BAPL
showall CONL
showall ENDL
showall SLGC
showall RESI
get #vpos
ifnot #oldv
hrule
endif
showall OCCU
showall EDUC
showall DSCR
showall RELI
showall SSN
showall IDNO
showall PROP
showall CAST
showall NCHI
showall NMR
showall TITL
showall OBJE
showall ALIA
showall ASSO
showall SOUR
showall NOTE
@@GeDF@@NAME Printing
! start new line and label
newline
style label
text Name:
get *msg
if INDI
size 14
endif
tabwidth 2
! edit name
hskip 5
style editvalue
get *msg
width -1
if INDI
size 14
endif
@@GeDF@@BIRT Printing
! New line and enter label
hrule 2
newline 2
style label
text Birth:
tabwidth 1
! show date and place
set rtjs 1
show DATE
newline
show PLAC
showall ADDR
showall TYPE
showall AGNC
showall NOTE "Birth "
showall SOUR "Birth "
set rtjs 0
@@GeDF@@DATE Printing
get *msg
if nolabel
hskip 5
style editvalue
width 100
else
! label on current line
style label
text Date:
get *rec
if HEAD
tabwidth 2
get #rtjs
if 1
justify right
endif
else
justify right
tabwidth 1
endif
! edit the date
hskip 5
style editvalue
width -1
endif
@@GeDF@@SEX Printing
! label on current line
newline
style label
text Sex:
tabwidth 2
! edit the place
hskip 5
style static
get *valu
if M
text Male
else
text Female
endif
width -1
@@GeDF@@DEAT Printing
! New line and enter label
hrule 2
newline 2
style label
text *name
text :
tabwidth 1
! show date and place
set rtjs 1
show DATE
showall AGE
show PLAC
showall ADDR
showall TYPE
showall AGNC
showall CAUS
showall NOTE *name
showall SOUR *name
set rtjs 0
@@GeDF@@FAMS Printing
! Spouse type
newline
tabwidth 2
style label
get *this.SEX
if F
text Husband:
get *valu.HUSB
else
text Wife:
get *valu.WIFE
endif
! Spouse Name
hskip 5
style static
if validlink
text *it.NAME
link *it
else
text <unknown>
endif
width -1
get *valu.MARR.DATE
ifnotempty
newline
style label
text Date:
tabwidth 2
justify right
hskip 5
style static
text *it
width -1
endif
get *valu.MARR.PLAC
ifnotempty
newline
style label
text Place:
tabwidth 2
justify right
hskip 5
style static
text *it
width -1
endif
@@GeDF@@FAMC Printing
! parent family button
newline
style label
text Parents:
width 60
! Father
hskip 0
tabwidth 2
style label
justify right
text Father:
hskip 5
style static
get *valu.HUSB
if validlink
text *it.NAME
else
text <unknown>
endif
width -1
! Mother
newline
tabwidth 2
style label
justify right
text Mother:
hskip 5
style static
get *valu.WIFE
if validlink
text *it.NAME
link *it
else
text <unknown>
endif
width -1
@@GeDF@@NOTE Printing
if tagexists
newline
style label
ifnotempty *msg
justify right
endif
tabwidth 2
text Notes:
hskip 5
get *valu
if validlink
InsertRecord *it
else
style EditText
endif
endif
@@GeDF@@SOUR Printing
get *rec
if HEAD
style label
text System ID
tabwidth 2
hskip 5
style editvalue
width -1
showall NAME
set rtjs 1
showall VERS
showall CORP
showall DATA
set rtjs 0
else
newline
style label
tabwidth 2
text Source:
hskip 5
get *valu
if validlink
! title source
style static
get *it.ABBR
ifempty
get *valu.TITL
ifempty
get <Unnamed Source>
endif
endif
text *it
width -1
else
style editcont
width -1
endif
set rtjs 1
showall PAGE
showall DATA
showall QUAY
showall NOTE "Source "
set rtjs 0
endif
@@GeDF@@TEXT Printing
newline
style label
text Text:
tabwidth 2
! edit the date
hskip 5
style editcont
width -1
@@GeDF@@BAPM Printing
use DEAT Printing
@@GeDF@@NATU Printing
use DEAT Printing
@@GeDF@@DATA Printing
get *rec
if HEAD
style label
text Source Data:
tabwidth 2
hskip 5
style editvalue
width -1
newline
showall DATE
showall COPR
else SOUR
3dhrule
set rtjs 1
showall EVEN
showall AGNC
showall NOTE "Source "
set rtjs 0
else
get *DATE
ifnotempty
newline
tab 1
show DATE
endif
endif
@@GeDF@@BURI Printing
use DEAT Printing
@@GeDF@@ORDN Printing
use DEAT Printing
@@GeDF@@WILL Printing
use DEAT Printing
@@GeDF@@CHR Editing
use BURI Editing
@@GeDF@@CREM Editing
use BURI Editing
@@GeDF@@ADOP Editing
use BURI Editing
@@GeDF@@BARM Editing
use BURI Editing
@@GeDF@@BASM Editing
use BURI Editing
@@GeDF@@BLES Editing
use BURI Editing
@@GeDF@@CONF Editing
use BURI Editing
@@GeDF@@FCOM Editing
use BURI Editing
@@GeDF@@EMIG Editing
use BURI Editing
@@GeDF@@IMMI Editing
use BURI Editing
@@GeDF@@CENS Editing
use BURI Editing
@@GeDF@@PROB Editing
use BURI Editing
@@GeDF@@RETI Editing
use BURI Editing
@@GeDF@@GRAD Editing
use BURI Editing
@@GeDF@@EVEN Editing
get *rec
if SOUR
style label
tabwidth 1
text "Events:"
justify right
hskip 5
style editvalue
border 3dfield
width -1
show DATE
settab 40
show PLAC
else
style button
text *name
structlink iEVT
border 3Dbutton
justify center
width 105
hskip 5
endif
@@GeDF@@CHAR Editing
! label on current line
newline
style label
text *name
text :
justify right
tabwidth 1
! edit the date
hskip 5
style editvalue
border 3Dfield
width -1
cleartabs
settab #tab2
show VERS Char. Set
@@GeDF@@LANG Editing
use ABBR Editing
@@GeDF@@ENGA Editing
style button
text *name
structlink iEVT
border 3Dbutton
justify center
width 105
hskip 5
@@GeDF@@MARB Editing
use ENGA Editing
@@GeDF@@MARC Editing
use ENGA Editing
@@GeDF@@ANUL Editing
use ENGA Editing
@@GeDF@@DIV Editing
use ENGA Editing
@@GeDF@@DIVF Editing
use ENGA Editing
@@GeDF@@MARL Editing
use ENGA Editing
@@GeDF@@MARS Editing
use ENGA Editing
@@GeDF@@VERS Editing
! label on current line
style label
get *msg
ifnotempty
text *it
text " "
endif
tabwidth 1
text *name
text ":"
justify right
! edit the version
hskip 5
style editvalue
border 3Dfield
width -1
@@GeDF@@BARM Printing
use DEAT Printing
@@GeDF@@BASM Printing
use DEAT Printing
@@GeDF@@BLES Printing
use DEAT Printing
@@GeDF@@CENS Printing
use DEAT Printing
@@GeDF@@CONF Printing
use DEAT Printing
@@GeDF@@CREM Printing
use DEAT Printing
@@GeDF@@DIV Printing
use DEAT Printing
@@GeDF@@DIVF Printing
use DEAT Printing
@@GeDF@@EMIG Printing
use DEAT Printing
@@GeDF@@ENGA Printing
use DEAT Printing
@@GeDF@@EVEN Printing
get *rec
if SOUR
newline
style label
text Events Recorded:
tabwidth 2
hskip 5
style editvalue
width -1
newline
tab 1
show DATE
show PLAC
else
! New line and enter label
hrule 2
newline 2
style label
text *name
text :
tabwidth 1
! show date and place
set rtjs 1
show DATE
showall AGE
show PLAC
showall ADDR
showall TYPE
showall AGNC
showall CAUS
showall NOTE *name
showall SOUR *name
set rtjs 0
endif
@@GeDF@@FCOM Printing
use DEAT Printing
@@GeDF@@GRAD Printing
use DEAT Printing
@@GeDF@@IMMI Printing
use DEAT Printing
@@GeDF@@MARB Printing
use DEAT Printing
@@GeDF@@MARC Printing
use DEAT Printting
@@GeDF@@MARL Printing
use DEAT Printing
@@GeDF@@MARR Printing
use DEAT Printing
@@GeDF@@MARS Printing
use DEAT Printing
@@GeDF@@PROB Printing
use DEAT Printing
@@GeDF@@RETI Printing
use DEAT Printing
@@GeDF@@SUBM Printing
! label on current line
newline
style label
text Submitter:
tabwidth 2
! edit the date
hskip 5
get *valu.NAME
style static
text *it
width -1
@@GeDF@@ADOP Printing
use DEAT Printing
@@GeDF@@ANUL Printing
use DEAT Printing
@@GeDF@@CHR Printing
use DEAT Printing
@@GeDF@@HUSB Printing
! label on current line
newline
style label
text Husband:
tabwidth 2
! display name
hskip 5
style static
text *valu.NAME
width -1
@@GeDF@@WIFE Printing
! label on current line
newline
style label
text Wife:
tabwidth 2
! display name
hskip 5
style static
text *valu.NAME
width -1
@@GeDF@@CHIL Printing
style label
tabwidth 2
get *valu.SEX
if M
text Son:
else
text Daughter:
endif
hskip 5
style static
text *valu.NAME
width -1
newline
style label
tabwidth 2
justify right
text Birth:
hskip 5
style static
width -1
text *valu.BIRT.DATE
get *valu.BIRT.PLAC
ifnotempty
text ", "
text *it
endif
newline
style label
tabwidth 2
justify right
text Death:
hskip 5
style static
width -1
text *valu.DEAT.DATE
get *valu.DEAT.PLAC
ifnotempty
text ", "
text *it
endif
hrule
@@GeDF@@FAM Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 110
hrule
hrule 1
style label
width -1
size 14
text Family Group Record
hrule
hrule 1
show HUSB
show WIFE
show MARR
hrule
hrule 1
set topv #vpos
showall CHIL
set oldv #vpos
showall NCHI
get #vpos
if #oldv
ifnot #topv
hrule 1
endif
else
hrule
hrule 1
endif
newline
style label
text Additional Information
width -1
justify center
newline -3
set oldv #vpos
showall ENGA
showall MARB
showall MARC
showall MARL
showall MARS
showall SLGS
showall DIV
showall DIVF
showall ANUL
showall CENS
showall EVEN
get #vpos
ifnot #oldv
hrule
endif
set oldv #vpos
showall OBJE
showall SOUR
showall NOTE
get #vpos
ifnot #oldv
hrule
endif
@@GeDF@@QUAY Editing
!title
newline
style label
text Quality:
tabwidth 1
justify right
! popup menu
hskip 5
style popupedit
width 90
border shadow
justify center
font chicago
face plain
size 12
popupitem Unknown:
popupitem Unreliable:0
popupitem Questionable:1
popupitem Secondary:2
popupitem Primary:3
@@GeDF@@RESN Editing
ifempty *msg
newline
tab 2
hskip 5
else
set hskp #rmgn
sub hskp #lmgn
sub hskp 28
sub hskp #hpos
hskip #hskp
endif
style button
border 3dfield
menulink Attach:Restriction
if tagexists
picture @locked
else
picture @unlocked
endif
width 28
height 17
cellbg
@@GeDF@@OBJE Editing
get *valu
! link to embedded MM
if ValidLink
get #hpos
if #lmgn
tab 2
hskip 5
endif
style button
text Encoded Multimedia Object
border 3dbutton
link *valu
width 150
justify center
newline
! link to file
elseif TagExists
get #hpos
if #lmgn
tab 2
hskip 5
endif
style button
get *TITL
ifempty
get *FILE
endif
text *it
text " ("
text *FORM
text )
border 3dbutton
Structlink mmOB
width -1
justify center
newline
! no structure there
else
style button
text Add Multimedia
border 3dbutton
NewLink
width 105
justify center
hskip 5
endif
@@GeDF@@TIME Editing
@@GeDF@@ALIA Editing
if tagexists
style button
get *valu.NAME
ifempty
get <Unnamed Alias>
endif
text *it
link *valu
face underline
font times
size 12
blue
width -1
else
style button
text "Add Alias"
addlink
justify center
border 3Dbutton
width 105
hskip 5
endif
@@GeDF@@ASSO Editing
if tagexists
style button
get *valu.NAME
ifempty
get <Unnamed Association>
endif
text *it
link *valu
face underline
font times
size 12
blue
width -1
show RELA
else
style button
text "Add Association"
addlink
justify center
border 3Dbutton
width 105
hskip 5
endif
@@GeDF@@RELA Editing
style static
text Relationship:
justify right
width 80
! edit the relation
hskip 5
style editvalue
border 3Dfield
width -1
@@GeDF@@CHRA Editing
use BURI Editing
@@GeDF@@CHRA Printing
use DEAT Printing
@@GeDF@@iEVT Record Editing
settab 72
settab 72
newline
style 3DCheckEdit
width 10
uncheckedvalue
hskip 5
style label
text *name
get *rec
if INDI
text " of "
text *this.NAME
else
text " for "
text *this.HUSB.NAME
text " and "
text *this.WIFE.NAME
endif
width -1
newline
! show date and place
show DATE Event
show AGE
show TYPE
show PLAC
show ADDR
show CAUS
show AGNC
!Multimedia
ifhastags OBJE
3dhrule
newline -2
style label
text Multimedia:
tabwidth 2
justify right
hskip 5
showall OBJE
endif
! Show notes and source
leftSkip 80
lineskip 0
ifhastags SOUR
newline -1
style static
text Sources:
width 48
hskip 2
leftskip 130
showall SOUR
leftSkip 80
endif
newline
leftskip 40
lineskip #dlsk
show SOUR *name
show NOTE *name
show OBJE
leftskip #dlmg
@@GeDF@@AGE Editing
hskip 5
style label
text Age:
justify right
width 33
! edit the date
hskip 2
style editvalue
border 3Dfield
width -1
@@GeDF@@NOTE Record Printing
style edittext
showall CHAN NOTE
@@GeDF@@ANCI Printing
! static text with level and tab
newline
style label
text Ancestor Interest:
tabwidth 2
! edit field with value
hskip 5
style static
width -1
text *valu.NAME
newline
@@GeDF@@DESI Printing
! static text with level and tab
newline
style label
text Descend. Interest:
tabwidth 2
! edit field with value
hskip 5
style static
width -1
text *valu.NAME
newline
@@GeDF@@ALIA Printing
! static text with level and tab
newline
style label
text Alias:
tabwidth 2
! edit field with value
hskip 5
style static
get *valu.NAME
ifempty
get <Unnamed Alias>
endif
text *it
width -1
newline
@@GeDF@@ASSO Printing
! static text with level and tab
newline
style label
text Association:
tabwidth 2
! edit field with value
hskip 5
style static
get *valu.NAME
ifempty
get <Unnamed Association>
endif
text *it
width -1
newline
set rtjs 1
showall TYPE
showall RELA
set rtjs 0
@@GeDF@@CHAN Printing
newline
style label
tabwidth 2
get *msg
if NOTE
text Notes Changed:
justify right
else
text Record Changed:
endif
hskip 5
style static
text *DATE
get *DATE.TIME
ifnotempty
text ", "
text *it
endif
width -1
HideExcess
@@GeDF@@ADDR Printing
! parent family button
newline
style label
text Address:
get #rtjs
if 1
justify right
endif
tabwidth 2
hskip 5
style editcont
width -1
@@GeDF@@RESI Editing
! static text with level and tab
newline
style label
text Residence:
tabwidth 2
justify right
! edit field with value
hskip 5
style button
border 3DButton
text Show Residence
structlink Resi
justify center
width 100
newline
@@GeDF@@Resi Record Editing
style label
text "Residence for "
text *this.NAME
width -1
endtoolbar
show ADDR
@@GeDF@@CONL Editing
style button
text *name
structlink lEVT
border 3Dbutton
justify center
width 105
hskip 5
@@GeDF@@lEVT Record Editing
settab 72
settab 72
newline
style 3DCheckEdit
width 10
uncheckedvalue
hskip 5
style label
text *name
text " of "
text *this.NAME
width -1
newline
! show date and place
show DATE
show PLAC
show STAT
show TEMP
! Show notes and source
leftSkip 80
lineskip 0
ifhastags SOUR
newline -1
style static
text Sources:
width 50
hskip 2
leftskip 132
showall SOUR
leftSkip 80
endif
newline
show SOUR *name
show NOTE *name
lineskip #dlsk
leftskip #dlmg
@@GeDF@@BAPL Editing
use CONL Editing
@@GeDF@@ENDL Editing
use CONL Editing
@@GeDF@@SLGC Editing
use CONL Editing
@@GeDF@@CONL Printing
! New line and enter label
hrule 2
newline 2
style label
text *name
text :
tabwidth 1
! show date and place
set rtjs 1
show DATE
show PLAC
showall STAT
showall TEMP
showall NOTE *name
showall SOUR *name
set rtjs 0
@@GeDF@@BAPL Printing
use CONL Printing
@@GeDF@@ENDL Printing
use CONL Printing
@@GeDF@@SLGC Printing
use CONL Printing
@@GeDF@@RESI Printing
use DEAT Printing
@@GeDF@@QUAY Printing
! static text with level and tab
newline
style label
text Quality:
justify right
tabwidth 2
! edit field with value
hskip 5
style static
width -1
get *valu
if 0
text Unreliable
elseif 1
text Questionable
elseif 2
text Secondary
elseif 3
text Primary
else
text Unknown
endif
newline
@@GeDF@@STAT Editing
!title
newline
style label
text Status:
tabwidth 1
justify right
! popup menu
hskip 5
style popupedit
width 100
border shadow
justify center
font chicago
face plain
size 12
height 18
popupitem {Unspecified}:
popupitem Child
popupitem Cleared
popupitem Completed
popupitem Infant
popupitem Qualified
popupitem Pre-1970
popupitem Stillborn
popupitem Submitted
popupitem Uncleared
@@GeDF@@CHAN Editing
! static text with level and tab
newline
style static
text Last Changed:
face plain
width 75
justify right
cellbg 0xD4 0xB4 0xA4
! edit field with value
hskip 0
style static
text *valu
text *DATE
get *DATE.TIME
ifnotempty
text ", "
text *it
endif
cellbg 0xD4 0xB4 0xA4
width -1
HideExcess
@@GeDF@@NCHI Editing
! static text with level and tab
hskip 15
style label
text Number of Children:
width 130
justify right
! edit field with value
hskip 5
style editvalue
border 3Dfield
width 30
hskip 10
@@GeDF@@SLGS Editing
use CONL Editing
@@GeDF@@SLGS Printing
use CONL Printing
@@GeDF@@REPO Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 110
hrule
hrule 1
style label
width -1
size 14
text Repository Record
hrule
hrule 1
newline 2
show NAME
show ADDRESS
hrule
showall NOTE
hrule 1
@@GeDF@@PLAC Editing
! static text with level and tab
newline
style label
get *rec
if HEAD
cleartabs
settab #tab2
text " Default Place Hierarchy"
width -1
newline -2
settab 40
settab #tab1
show FORM
else
text Place:
tabwidth 2
justify right
! edit field with value
hskip 5
style editvalue
border 3Dfield
width -1
newline
endif
@@GeDF@@BLOB Editing
newline
tab 2
hskip 5
style button
text View Encoded Data
width 150
structlink rawD
justify center
border 3dbutton
@@GeDF@@CONT Editing
@@GeDF@@SUBM Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 110
hrule
hrule 1
style label
width -1
size 14
text Submitter Record
hrule
hrule 1
newline 2
show NAME
show ADDR
show PHON
show LANG
@@GeDF@@SUBN Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 130
hrule
hrule 1
style label
width -1
size 14
text Submission Record
hrule
hrule 1
newline 2
show SUBM
show FAMF
show TEMP
show ANCE
show DESC
show ORDI
@@GeDF@@HEAD Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 110
hrule
hrule 1
style label
width -1
size 14
text Header Record
hrule
hrule 1
newline 2
show SOUR
3dhrule
show SUBM
show SUBN
3dhrule
show DEST
show DATE
show FILE
show COPR
show GEDC
show CHAR
show LANG
show PLAC
3dhrule
show NOTE Header
showall NOTE Header
@@GeDF@@SUBN Printing
@@GeDF@@GEDC Printing
showall VERS "GEDCOM "
showall FORM
@@GeDF@@VERS Printing
style label
text *msg
text Version:
get #rtjs
if 1
justify right
endif
tabwidth 2
hskip 5
style editvalue
width -1
@@GeDF@@PLAC Printing
get *rec
if HEAD
style label
text Default Place Hierarchy
width -1
else
style label
text Place:
get #rtjs
if 1
justify right
endif
tabwidth 2
hskip 5
style editvalue
width -1
endif
@@GeDF@@SOUR Record Printing
leftskip 0
lineskip 0
minlines 1
settab 72
settab 110
hrule
hrule 1
style label
width -1
size 14
text Source Record
hrule
hrule 1
newline 2
show AUTH
show TITL Source
showall ABBR
showall PUBL
showall REPO
showall NOTE Source
showall DATA
3dhrule
showall TEXT
@@GeDF@@AUTH Printing
newline
style label
text Author:
tabwidth 2
hskip 5
style edittext
width -1
@@GeDF@@TITL Printing
get *rec
if SOUR
newline
style label
text Title:
tabwidth 2
hskip 5
style edittext
width -1
else
! static text with level and tab
newline
style label
text Title:
tabwidth 2
! edit field with value
hskip 5
style editvalue
width -1
endif
@@GeDF@@PUBL Printing
newline
style label
text Publisher:
tabwidth 2
hskip 5
style edittext
width -1
@@GeDF@@REPO Printing
! label on current line
newline
style label
text Repository:
tabwidth 2
! edit the date
hskip 5
get *valu.NAME
style static
text *it
width -1
@@GeDF@@mmOB Record Editing
style label
text "Multimedia File Link"
width 200
set blef #rmgn
sub blef #lmgn
sub blef 100
HMoveTo #blef
style button
text "Change File Link"
border 3dbutton
NewLink
width 100
justify center
show TITL mm
newline
style label
text File:
justify right
tabwidth 1
hskip 5
style static
width -1
text *FILE
setmmform *FORM
newline
style label
text Format:
justify right
tabwidth 1
show FORM mm
hskip 20
show NOTE Media
endtoolbar
style static
showmm *FILE
cellbg 0xFF 0xFF 0xFF
set cwid #picw
add cwid 4
width #cwid
set cwid #pich
add cwid 4
height #cwid
border 3dfield
HideExcess
ZoomWindow
@@GeDF@@rawD Record Editing
style edittext
font monaco
size 9
@@GeDF@@OBJE Printing
get *valu
ifnot ValidLink
newline
style label
tabwidth 2
text Multimedia File:
hskip 5
style static
get *TITL
ifempty
get *FILE
endif
text *it
text " ("
text *FORM
text )
width -1
newline
tab 2
hskip 5
style static
text *FILE
width -1
newline
get *FORM
if PICT
tab 2
hskip 5
style static
setmmform *FORM
showmm *FILE
set cwid #picw
add cwid 4
width #cwid
set cwid #pich
add cwid 4
height #cwid
border field
endif
endif
HideExcess
@@GeDF@@FORM Editing
get *msg
if mm
hskip 5
style editvalue
width 50
border 3dfield
else
newline
style label
text Form:
tabwidth 2
justify right
! edit field with value
hskip 5
style editvalue
border 3Dfield
width -1
endif
@@GeDF@@PEDI Editing
!title
newline
style label
text Pedigree:
tabwidth 2
justify right
! popup menu
hskip 5
style popupedit
width 75
border shadow
justify center
popupitem Birth:
popupitem Adopted:adopted
popupitem Foster:foster
popupitem Sealing:sealing
@@GeDF@@REFN Editing
! static text with level and tab
newline
style static
text User Ref. ID:
face plain
width 75
justify right
cellbg 0xD4 0xB4 0xA4
! edit field with value
hskip 0
style static
text *valu
cellbg 0xD4 0xB4 0xA4
width -1
HideExcess
@@GeDF@@CALN Editing
newline
style label
text Call Number:
tabwidth 2
justify right
hskip 5
style editvalue
border 3dfield
width -1
show MEDI
@@GeDF@@
@@GeDF@@Current GEDitCOM Format Editing Help
.../8./1..U3RqQc/LSaE.Jt8E.3RqO......./W..2.SE...AY..U1x.../.E.1
.FA...Pf..A4vk..0/M..kUU...6IU.103Q...W1..A6X...0Gc..kYs...7O..1
0L2...aW..A7gk..0V6..kcZ...8VU.10cw...ey..A8nE..0zk..kk8...AH..2
13E...lN..EALk..15../Elt...FBU.12Hc../4o..AFjU..2T...l5p...G5E.1
2WM../92..AGoU..2k6..lA9...I0k.13/U../G9..IIa...3FQ..lIZ...MH..1
43s../Zx..ANXk..4hw..lfl...PF..34pI../iF..APck..51k./FlK...RcU.3
5Po../r/zzwRkjzz....Y..W..o.0U.1....0U........./..o.0U.1.E..0U..
......./..o.0U.1/...0U.........M..o.0U.1.U..0U.........0./..11zz
....1..........3..o.0U.1/...0U....1I......o.0U.1.U..0U..........
..o.0U.1.E..0U..........5Q.U60.U60/IO4Zn64VZP5.UR4xkOKAUNqZqNLAU
NaxmPK3o9LBkNKBdNaZX64ZiNaxmPK3oOKxi643WPrJo64JYOLFdPaQUFoJ2EoxB
62NdP4Jn65RcNKsURLBdPaQUR4VZ62FZNa3pP5EUFoJ2OLF1HooUFaxmPK3o9W/I
O4Zn64NjQapVR0/bOLNZQm/qOL7oRK3gP5YUMqxhQ4lZR4IUMKBXNLBn65Fj643g
P0/aNK3oRL7ZQm/jNW/5FIF1HooUNaZgNLAi1EpHQ4JXOKNdMm/3N4ZoOKtb62Zi
NaxmPK3oOKxi64NjQW/3MKBc63FtQ4IUPqMUIaJXPr7Y1EqZ62ZCF2ZKGIFJEIkU
IaJXPr7YQkoU60.U60/IO4IUR4xk64xa64JVMqUUGIt2GJN7F3J/H0/GNKBjQaEU
NqZqNLAUMG/nNL7dNLAUPqMUMbJoR4xiQm/oO43o65/mPrNdN4IUP4ZiOrAUR4wU
R4VVR0/kNL7nPqvJQm/4MLFcNL6g62pjR4VZQWkUIr/jRLBZ85Ad90/VPaEUEqVd
P4FmNKsi63FcNG//PaBZQrFjQbAUMKtY62FZQqBZPaFVPbFn647pR5FjPbAURqZg
P0/YOLBkP43t643i643iMqJnR4xm64xm64FZQqBZPaFZPbEUNa3hOKlt65FmNKIU
Naxm65FcNG/kNL7nPqsi1G.U60.U63FcNG/iNLVo64ldPaIUNqZqNLAUR4VZ65/Z
QbBjPhJn64tVPKIg65BZS0kUMKtY642UQaJnR57dMrFdPqsUOKBjPWsUKKxp64BV
PW/ZN4Zo65FcNG/iMKpZ60VWRLEUPaxo65FcNG/nNLUd9W/IO4IUQaJnR57dMrFd
PqsUOKBjPW/rOKlg64ZiN4ZXMLFZ64Za65FcNG/mNKBjQaEUOLAUP4xXOqJY60VX
P4xnNKEUP4xXOmYUPr6URKtgPqBfNKEU84xkNKtZN0/gPqBfNKEd9W/NPrIUMq3i
64BgOKBf65FcNG/dMqxi65Fj64BcMKtbNG/oO4IUMrJmQaJiR0/mNLBoQaZXR4Zj
PWsB60.U60.UJ4VZ64tZS5EUR5Rj65BZMrFdPqtn64FZQqBmOK7Z65FcOLAUQ4Jm
QqxipLAUMaZmR4UUMKtY64FZMLFc64JqNKtoQmsUKKxp64BVPW/ZPbFZQW/oO4IU
N43oNLAUMKtY65/gMKBZQmsUJ5Rj647pR5FjPbAUP4Jo65Fj64JiR4Jm64tjR4Jn
643WPrJo65FcNG/WOL7oO0/jQW/YNK3oO0/jQW/VR5FVMqUUMG/nPrJmMqIUNaxm
65FcNG/dPaNjQapVR4ZjPWsB60.U60.UEaJgPrQUR4VZ64FZMLFc64JqNKto65Rd
P4kUMaIUMG/gOLBo64xa643gP0/aMKpdP4ZZQm/oO4Zn64ZiN4ZqOKFpMKkUMaJg
PqtbQm/oPmsUJ4VZ64ldQrEURqZgP0/dPaBgRKFZ643gP0/hML7mOK3bNLAURqZo
O0/gOKtfQm/oPm/oO4IUQr/jRLBZ60VXP4ZXOm/jPW/oO4IUQr/jRLBZpLAUPa3h
NGYUMKtY65Fj65FcNG/aMKpdP5YUQaJXPr7Y64NjQW/oO43o64pVQb7dMKRZ60VX
P4ZXOm/jPW/oO4IUoYpVQb7dMKRZ637ZMqxmNBAUMbJoR4xi8GsUJ4VZ64ldQrEU
RqZgP0/VP5Bj64ZiMqlpN4IUP4ZiOrAUR4wUR4VdQm/kNL7nPqvJQm/kML7ZPbFn
60VXP4ZXOm/jPW/aMLFcNL9JQm/jQW/hPrFcNL9JQm/iMKpZQmYUMKtY642UP4Zi
Om/oPm/oO4IUNa3hOKlt657ZMqxmN0/jNW/oO4IUQ43mNKtoQm.cMqldMqgUPqsU
R4VZ6B7EML7ZPbFn62NVPKZgSRAUMbJoR4xi8GsB60.U60.UJ4VZ64tZS5EUQqJX
R4ZjPW/rOKlg647Z642UP4ZnR0.cOKMUMKtt8G/VP4kUNLNZPbFn643iN0/aMKBo
Qm/VMaxpR0/oO4Zn64ZiN4ZqOKFpMKki62Za65ZjRG/gNK3mPW/nPqpZ64tZRm/Z
RaJiR0/jQW/VR5FmOK7pR4IUOKtaPr7hMLFdPqsg65ZjRG/XMKsUMqldMqgUR4VZ
6B7/R5FVMqUUFLNZPbEjELFoQaZWRLFZom/WRLFoPqsUR4wUMKFY65FcMLEUN43o
MG/oPm/oO4IUQaJXPr7Y9W/3RaJiR5AURqZgP0/VQ5/ZML6UMLAUMbJoR4xiQmsU
KKxp64BVPW/XP4ZXOm/oO43o647pR5FjPW/oPm/nNKIUN4JoMKZgQm.cN43oNGkU
Q4lVMqJn90/iPrFZQmkUNLFX9WYUMK7jRLEUR4VVR0/ZRaJiR0sB60.U60.UEaJg
PrQUR4VZ64JqNKtoQm/VPaEUMLFoQaZWRLFZQm/oO4JmNG/hMLYUMaIUPrFcNL6U
NqJiNK3gPqRdMq3g64ZiNaxmPK3oOKxi65BpMqUUMLAUP4ZiOrAUR4wUPLJgR4Zh
NKFdMG/aOKlZQmkUMKldMLBZQmkUMLBnPqBdMLFdPqsUP4ZiOrAg643iN0/nPrJm
MqIUOKtaPr7hMLFdPqsi1G.U60.U63FcNG/WPrFoPqoUQqJXR4ZjPW/jNW/7HYF7
JYZ2JI3A657ZMqxmN5AUO43n642UQqJmOKJn64xa647pR5FjPbAURqZoO0/oO4IU
NaxgP4xrOKtb64NpPaBoOKxiQncB1G.U60/CNLQUIqxpQaBZCW/VR5FVMqUUMG/i
NLQUQqxpQaBZ64BdR43oOKxi65Fj65FcOLAUQaJXPr7Y1G.U60/CPrFZQncUQqVj
Rm/nPqpZ64tjR4Jn643WPrJo65FcOLAUOKtYOLNdN5JVP.oU60.UHaJr62tjR4Jn
CW/VN4EUMG/iNLQUPaxoNG/mNKBjQaEUR4wUR4VdQm/mNKBjQaEU85ZjRG/XMKsU
O43qNG/VPbYB60.U60.U60.U60.U60/iRKpWNL6UPqMUPaxoNG/mNKBjQaFn90/W
RLEUNK3XO0/iPrEUQaJXPr7Y64Zn64ldPKZoNKEB60.U60.U60.U60.U60/oPm.n
AW/fMbZoNLAd1G.U60//N4EUHLJgR4ZhNKFdMHcUMKFY642UP4ZiOm/oPm/VPbYU
R5ZkNG/jNW/hRKloOKpZN4ZV64NdP4IB60.U63BpMapdR5FZQXcUQqVjRm/oO4IU
QrJWPKZoR4Jm90/jQW/gOKtf65Fj642UQrJWPKZoR4Jm1G.U60//PaBZQrFjQW/7
PbFZQaJnR1cUQqVjRm/jQW/gOKtf65Fj642UQ4JmQqxi65RdR4UUOKtoNL7ZQrEB
60.U60.U60.U60.U60/dPW/oO4IUMKtXNLBoPr7n64xa65FcOLAUOKtYOLNdN5JV
P.oU60.UF4JnMqJiN4JiR0/7PbFZQaJnR1cUQqVjRm/jQW/gOKtf65Fj642UQ4Jm
Qqxi65RdR4UUOKtoNL7ZQrEB60.U60.U60.U60.U60/dPW/oO4IUN4JnMqJiN43i
R5AUPqMUR4VdQm/dPaFdRaZYRK3g1G.U60//N4EUEKldMLAu643YN0/gOKtf65Fj
643i643gOK3n64NjQW/oO4Zn64ZiN4ZqOKFpMKkB60.U623YN0//QrBjMqZVR4Zj
PXcUMKFY64ldPagUR4wUMKtjR4VZQW/dPaFdRaZYRK3g65FcMLEUO43n643i1G.U
60.U60.U60.U60.UMLBnPqBdMLFdPqsURqZoO0/oO4Zn64ZiN4ZqOKFpMKkB1G.U
60.U62NdPa3gP5Yg643iSG/jR4VZQW/5FIF1HooUOKtaPr7hMLFdPqsUOKsUR4VZ
657ZMqxmN0/rOKlg643kQ4JVQW/WNKljRm/oO4IUMbJoR4xiQmsUJ4VZ64lVQrEU
OKtaPr7hMLFdPqsURqZgP0/WNG/oO4IUN43oNG/VPaEUR4ZhNG/oO4Zn657ZMqxm
N0/rMLAUP43nR4JY64BcMKtbNKEU84Za65FcMLEUOKtaPr7hMLFdPqsUOLAUOKsU
R4VZ657ZMqxmN0Yi1EqZ62N/HIZAKG/GNKBjQaFn1G.U60.U63FcNG/oPr.UPqMU
R4VZ65RdPaFjRm/bOLNZQm/oRqwUMbJoR4xiQm/oO43o64FpQ4ldMq3oNG/oO4IU
EqVdP4FmNKsUMKtY62ZiN4JsmG/XPqphMKtYQm/dPW/oO4IUJaZZRm/BNKtp9UoU
60.U60/IO4IUNaZmQrEUQqJXR4ZjPW/gOLBoQm/oO4IUO5JnMa3iN0/VPaEURqZa
NG/aPr6UR4VdQm/aMKpdP5Yi63ZjRG/XMKsUMqldMqgUNKZoO4Jm64tVPKIUR4wU
QqJZ65FcNG/7HYF7JYZ2JI3A657ZMqxmN0/aPr6UR4VVR0/kNL7nPqsi62Za65Fc
NG/kML7ZPbFn64xa64JdR4VZQW/nQ4xpQqIUOLAUOqtjRmkUR4VZSG/rOKlg643g
QqwUMaIUMG1GI43mNKtoQxAUMbJoR4xi9W/1P4ZXOm/oO4Zn647pR5FjPW/oPm/n
NKIUR4VZ62N/HIZAKG/mNKBjQaEUPqMUR4VVR0/kNL7nPqvJQm/kML7ZPbFn9UoU
60.U63FcNG/iNLVo65BZMrFdPqsUOLAURLBZN0/oPm/ZPbFZQW/dPaNjQapVR4Zj
PW/VMaxpR0/oO4IUN43oNG/VPaEUQ4lVMqIUNaxm65FcNG/hML7mOK3bNG/ZRaJi
R0sUJ5Rj647pR5FjPbAUP4Jo65Fj64JiR4Jm64tjR4Jn643WPrJo65FcNG/hML7m
OK3bNG/jQW/VR5FVMqUUMG/nPrJmMqIUNaxm65FcNG/dPaNjQapVR4ZjPWsB60.U
60.UJ4VZ64tZS5EUQqJXR4ZjPW/gOLBoQm/VP4kUMqVdP4FmNKsUOKsUR4VdQm/a
MKpdP5Yi62NjQW/ZMKBc64BcOKlY65FcNG/oMK7gNG/rOKlg64VVRaIUR4VZ64tV
PKIg65FcNKZm65BZS0kUMKtY65FcNKZm647dQbFcN43oNGsUKKxp64BVPW/XP4ZX
Om/oO4IUPa3hNG/oPm/nNKIUR4VVR0/XO4ZgNBJn62ZCF2ZKGIFJEIkUQaJXPr7Y
9W/7NW/oO43o64BcOKlY64Zn65FcNG/nQ4xpQqIUOKsUMKtt64NVPKZgSGkUR4VZ
65RdP4kUMaIUMG1GFa3hOKltom/gOKtf64Zi65FcNG1GH4ZiOxAUMqxgRKpi9W/N
PrIUMq3i64BgOKBf65FcOLAUP4ZiOm/oPm/qOKJn65FcMLEUFY3BGIlN637ZMqxm
N0sB60.U60//NbFZQW/oO4IUNa3hOKlt65FVMalZ643mNG/oRqwUMbJoR4xiQm/o
O43o64BVPW/WNG/pQqJY65Fj643oR43XO0/iNLQUMqVdP4FmNKsUPr6UN4JoMKBc
65FcNG/XRL7mNKto64BcOKlYQaJi9UoU60.U63FcNG/iNLVo65BZMrFdPqsUOLAU
RLBZN0/oPm/YOLBkP43t643iN0/oPm/ZPbFZQW/aMKpdP5YUNLNZPbFn9W/7NW/t
PrIUP4JVQasUQqxhNG/iNLQUNa3hOKlt64JqNKto90/tPrIUMq3i64BgOKBf65Fc
NG1GELFoMKBc62tZRm/3RaJiRBAUMbJoR4xi65Fj643YN0/oO43o64FVR42UR4wU
R4VZ657ZMqxmN0sUFLNZPbFn65RdP4kUML/kNK3m643n647pR5FjPbAi63ZjRG/X
MKsUMqldMqgUR4VVR0/WRLFoPqsUR4wUQqJZ64FZR43dP5AU84FVR4Ig65/gMKBZ
QmkUPaxoNLAg64JoMmsd643WPrJo65FcMLEUNLNZPbEi1G.U60.U63FcNG/WPrFo
PqoUQqJXR4ZjPW/jNW/4EIp7H3YUQaJXPr7YQm/cMLAUMG/nNL7dNLAUPqMUMbJo
R4xiQm/rOLFc65FcNG/aPqlgPrRdPaQUNbJiMrFdPqtnCUoB60.U62tZRm/HPrJm
MqIu643oR43XO0/V64tZRm/nPrJmMqIUMqZoMLFdPqsUR4wUR4VdQm/mNKBjQaEB
60.U62tjR4JnCW/nO4xr65BjPKIUPaxoNLAUMK7jRLEUR4VdQm/aMKpdP5YB60.U
62tZRm/CPrFZQncUMKFY642UPaJr64tjR4IUQaJXPr7Y65Fj65FcOLAUQaJXPr7Y
60VtPrIUMq3i64VVRaIUMKtt1G.U60.U60.U60.U60.UPbJhMaJm64xa64tjR4IU
QaJXPr7YQmkUMbJo64JVMqUUPaxo657ZMqxmN0/dQm/gOKpdR4JY1G.U60.U60.U
60.U60.UR4wUAn6UOq7tR4Jn8EoU60.UEKFY62ppP5FdPKJYOK2u643YN0/V64ld
PagUR4wUMKtt65FtQ4IUPqMUPLJgR4ZhNKFdMG/aOKlZ1G.U60/HRK7hOLFoNL6u
65BcPrQUR4VZ65BpMapdR5FZQWkUPr6UP4ZiOm/oPm/V65BpMapdR5FZQUoB60.U
60.UFaZiMKlgSGkUMKtt64xoO4Jm62R3F2BDHG/dPaNjQapVR4ZjPW/dPW/oO4IU
QaJXPr7Y65RdP4kUML/kNK3m647ZP4xr65FcNG/WRLFoPqtn9W/IO4IUP43nR0/d
PaNjQapVR4ZjPW/rOKlg647Z65FcNG/YMLFZ643iN0/oOKpZ65FcOLAUQaJXPr7Y
65RVQm/gMLBoNKEUMqVVPaRZN0.cOKMUR4VVR0/dPaNjQapVR4ZjPW/dQm/dPW/o
O4IUQaJXPr7Y8GsB1OIUG2J/F2JG637ZMqxmN.oU60.U60/IO4IUG4JVN4Jm637Z
MqxmN0/dQm/nOKpkP5YUN4ZnQ4lVSKJY64Zi642UQqJmOKJn64xa64JYOLFdPaQU
NaZZP4Fn9W/NPrIUMq3i64pVOqIUMKtY64BcMKtbNLAUSKxp65RVPbEU85BZNG/6
FI32FJ6UIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAUPqMUPKxnR0/jNW/oO4IUNaZZ
P4Fn8GsUI57jMa3WP5YUR4VZ64xiP5YUR4VdPaRn65ZjRG/hOKRcR0/XO43iNqIU
ML7Z65FcNG/aOKlZ64tVPKIUMKtY65FcNG/cNK3YNL6UPaxoNLAi1EqZ63BDJJ71
FG/GNKBjQaFn1G.U60.U63FcNG/aOL7nR0/nNKBoOKxi64JiR4JmQm/YNLFVOKln
643WPrJo65FcNG/nPrJmMqIUQrJXO0/VQm/VRLFcPr6g65FdR4lZ90/VPaEUQ5JW
P4ZnO4Jm9W/NPrIUMq3i643gQqwUMKFY642UP4ZiOm/oPm/V6373I2xHGJFDIZYU
IaJXPr7Y65RcOKBc64FZNaZiNLAURqVZQaIUR4VZ65BjRL7XNG/dQm/nR4xmNKEi
62NdPa3gP5YUSKxp64BVPW/VN4EUPaxoNLAUMK7jRLEUR4VZ65BjRL7XNGkUNqZq
NG/V64BVP4kUPbJhMaJm90/VPaEUQr/ZMqZaSG/oO4IUR5ZkNG/jNW/nPrJmMqIU
82pZN4ZV63FtQ4Id9W/IO4IUoZBcPr7o63FdR4lZom/dQm/pQqJY65Fj64JiR4Jm
643i643WMb7ZRaZVR4JY65FdR4lZ9W/IO4Zn65FdR4lZ65RdP4kUMaIURLBZN0.c
OKMUMLNVOKlVMalZ8G/rO4Ji64BdR4ZiNm/oO4Zn65BjRL7XNG/dPW/VPaxoO4Jm
657ZMqxmN0sB60.U60.UJ4VZ64tZS5EUQqJXR4ZjPW/bOLNZQm/dPaNjQapVR4Zj
PW/VMaxpR0/rO43o64BVPW/WNG/aPrJiN0/dPW/oO4Zn65BjRL7XNG/VPaEUPaxo
NLAUMK7jRLEUR4VZ65BjRL7XNG/YMLFV9UoU60.U60/IO4IUP43nR0/nNKBoOKxi
64BVPW/WNG/pQqJY65Fj64JiR4Jm64JsMqJmQ5Fn64NmPqoUR4VZ65BjRL7XNG/j
QW/gOKtf65Fj64ppP5FdPKJYOK2UPq7eNKBoQm/nRKBc643n65BXMKtiNKEUOKpV
NqJn64NmPqoUR4VZ65BjRL7XNGsB60.U62NdPa3gP5Yg65FcNG/YMLFZ643iN0/o
OKpZ65FcOLAUQaJXPr7Y65RVQm/gMLBoNKEUMqVVPaRZN0.cOKMUR4VVR0/dPaNj
QapVR4ZjPW/dQm/dPW/oO4IUQaJXPr7Y8G/rOKlg647Z64FdQr/gMLZZN0sB1OIU
IYJEHpB7J2xGKG/GNKBjQaFn1G.U60.U63FcNL7Z643mNG/aOKJgN5AUR4wUNKto
NL6UR4VZ64tVPKIUMKtY643YN57ZQrAUPqMUR4VZ657ZQ4xnOLFjQbYUPr6UPqMU
QqxhNG/gPqBVR4ZjPW/rO4JmNG/nPrJmMqJn643mNG/nR4xmNKEi63ZjRG/XMKsU
MKlnPm/ZPbFZQW/iPrFZQm/VMaxpR0/oO4IUQaJkPrBdR4xmSGsUJ4VZ64FVR4IU
MKtY65FdPKIUR4VdQm/mNKBjQaEURq3n64lVQrFZN0/XO43iNqJY60VdNW/oO43o
64ZiNaxmPK3oOKxi64Zn64Zi65FcNG/mNKBjQaEd65RdP4kUMaIUN4ZnQ4lVSKJY
643iN0/oO4IUNKtY9UoBdG/HJI7BGJFIFJ6UIaJXPr7YQkoU60.U60/IO4JmNG/V
QaIUNaZZP4Fn65Fj64JiR4Jm65FcNG/iMKpZ643iN0/VN4FmNLBn64xa643iSKxi
NG/VMrFdPaQUMLAUMG/nRK7hOLFoNL6UNaxm65FcNG/bNKtZMKljNqZXMKkUN43o
MG/dPW/oO4IUFoJ2EoxB62NdP4Ii63FcNL7Z64Zn643gQqwUMG/WRLFoPqsUR4wU
MKFY64ppP5FdPKJYOK2UP4ZiOrAUQrJXO0/VQm/V65/dMrFpQaIUPqMUR4VZ65Bp
MapdR5FZQWsUJ4VZ64FVR4IUMKtY65FdPKIUR4VdQm/mNKBjQaEURq3n64lVQrFZ
N0/XO43iNqJY60VdNW/oO43o64ZiNaxmPK3oOKxi64Zn64Zi65FcNG/mNKBjQaEd
65RdP4kUMaIUN4ZnQ4lVSKJY643iN0/oO4IUNKtY9UoBdG/HJI7BGJBHGIxC637Z
MqxmN5AB60.U60.UJ4VZ63BJEYp7IpB7HosUIaJXPr7Y64Zn65BdPL/gSG/YOLBk
P43tNKEUMKtY65ZjRG/XMKsUMqVVPaRZ643iSG/aOKJgN0.cQqJZ63BJEYp7IpB7
HosUIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAUPqMUR4VZ64NdNKlYQm/dPW/oO4Zn
65FtQ4IUPqMUQaJXPr7Y8GsB1OIUHJJAJ2ZBFIF7EG/GNKBjQaFn1G.U60.U62pJ
H3F7HIJ2GI2UIaJXPr7YQm/dPW/5FIF1HooUFaZgNLAUML7Z65JnNKEUR4wUQrFj
QaIUNKtXPqFZN0/hRKloOKpZN4ZV64FVR42i62ldOqIUMKlg64xoO4Jm64RZPaJV
P4xbOKBVP0/VQ5/gOKBVR4ZjPbAg62R3F4ZoEoxB64FjNLAUPaxo65BpQ5/jQbEU
FKtXPqFZN0/BJIlIGIp3F2Z/637ZMqxmN5Ai62Za65ZjRG/jQ4Ji65BpMqUUMG/m
NKBjQaEg65ZjRG/rOKlg65BZNG/V64tjR4ZXNG/VMaxpR0/oO4IUNKtXPqFZN0/m
NKBjQaEUMKtY65BjPKIUOKtaPr7hMLFdPqsUMK7jRLEURqVVR0/YMLFV64Zn64Ji
MqxYNKEUOKsUR4VVR0/mNKBjQaEi63ZjRG/XMKsUMqldMqgUPqsUR4VZ6B7KOKJr
62JiMqxYNKEUF43oMRAUMbJoR4xi65Fj65BZNG.cMKtY64BjQ5Yg64Za64FZQqZm
NKEd65FcNG/mMLQUNKtXPqFZN0/YMLFV9W/NPrIUQqVjRKlY643YN0/hRKloOKpZ
N4ZV65Fj65ZjRG/bNKtZMKljNqZXMKkUN43oMG/WSG/VN4FdPaQUP4ZiOrAUR4wU
PLJgR4ZhNKFdMG/aOKlZQm.cQqJZ62ldPahdPaQUR4wUHLJgR4ZhNKFdMG/4OKlZ
QmYi1E